home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q9.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  35 lines
  1. 10  HOME : TEXT 
  2. 20  PRINT 
  3. 30  PRINT "What did Snow White's stepmother ask    her mirror to show her?"
  4. 40  PRINT : PRINT 
  5. 50  PRINT "a. The future"
  6. 60  PRINT 
  7. 70  PRINT "b. Frankenstein"
  8. 80  PRINT 
  9. 90  PRINT "c. The fairest in the land."
  10. 100  PRINT 
  11. 110  PRINT "d. A Chevy Camaro"
  12. 120  PRINT : PRINT : PRINT 
  13. 130  GET KY$
  14. 140  HOME 
  15. 150  PRINT : PRINT 
  16. 160  IF KY$ = "c"  OR KY$ = "C"  THEN  GOTO 300
  17. 170  IF KY$ = "b"  OR KY$ = "B"  OR KY$ = "a"  OR KY$ = "A"  THEN  GOTO 320
  18. 180  IF KY$ = "d"  OR KY$ = "D"  THEN  GOTO 350
  19. 185  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"c"  OR KY$ < >"C"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOTO 370
  20. 190  PRINT : PRINT : PRINT : PRINT 
  21. 200  FOR I = 0 TO 1000
  22. 202 J = 1
  23. 204  NEXT I
  24. 210  GOTO 10
  25. 250  END 
  26. 300  PRINT "You got it!!  And now to end this       program, one last question."
  27. 310  PRINT : PRINT : PRINT : PRINT 
  28. 311  FOR I = 0 TO 500: NEXT I
  29. 312  PRINT  CHR$(4);"run q11"
  30. 320  PRINT "Not exactly.  Try again."
  31. 330  GOTO 190
  32. 350  PRINT "You're not even close.  Try again."
  33. 360  GOTO 190
  34. 370  PRINT "Just enter <a>, <b>, <c>, or <d>."
  35. 380  GOTO 190